
 1000  *---------------------------------
 1010  *      BUILD STRING FROM SECOND LINE ON SCREEN
 1020  *---------------------------------
 1030         .OR $300
 1040  *---------------------------------
 1050  PTRGET .EQ $DFE3  PUTS STRING POINTER ADDRESS IN $83,84
 1060  GETSPA .EQ $E452  PUTS ADDRESS OF STRING SPACE IN $71,72
 1070  MOVSTR .EQ $E5E2  MOVES DATA FROM (Y,X) TO STRING SPACE
 1080  *---------------------------------
 1090  SPCPTR .EQ $71,72 PNTR TO STRING SPACE RESERVED BY GETSPA
 1100  STRPTR .EQ $83,84 PNTR TO STRING VARIABLE PTRGET GOT
 1110  *---------------------------------
 1120  *      TO USE:
 1130  *          CALL 768A$(X)
 1140  *---------------------------------
 1150  GO     JSR PTRGET   GET ADDRESS OF STRING INTO $83,84
 1160         LDA #11      MOVE 11 BYTES
 1170         JSR GETSPA   GET SPACE FOR 11-BYTE STRING
 1180         LDY #0
 1190         STA (STRPTR),Y  PUT LENGTH IN STRING DESCRIPTOR
 1200         LDA SPCPTR   LOW BYTE OF STRING ADDRESS
 1210         INY
 1220         STA (STRPTR),Y
 1230         LDA SPCPTR+1 HIGH BYTE OF STRING ADDRESS
 1240         INY
 1250         STA (STRPTR),Y
 1260         LDX #$0494   START OF OPCODE ON SECOND SCREEN LINE
 1270         LDY /$0494       ADDRESS IN (Y,X)
 1280         LDA #11      11 BYTES LONG
 1290         JSR MOVSTR   MOVE IT IN
 1300         RTS

